home *** CD-ROM | disk | FTP | other *** search
/ Macromedia Multimedia Showcase 6.0 / Macromedia Multimedia Showcase v6.0 WIN-MAC (XMSH60CD)(Macromedia, Inc.)(1996).iso / pc / demosoft / freehand / data.5 / App / Usenglsh / lang8.dll / POST / 1151 < prev    next >
Text File  |  1996-10-03  |  559b  |  33 lines
  1. supdict begin
  2. /teethsize 
  3. { dy teeth div } def
  4. /drawtooth 
  5. { dx teethsize 2 div rlineto
  6. dx neg teethsize 2 div rlineto } def
  7. /teethloop 
  8. { teeth { drawtooth } repeat } def
  9. /sfx 
  10. { x1 x2 add dx div } def
  11. /sfy 
  12. { y1 y2 add dy div } def
  13. end  
  14. /tigerteeth  
  15. {
  16. supdict begin  
  17. q newinside 
  18. /color xdf
  19. colorchoice    
  20. /color xdf  
  21. /angle xdf   
  22. /teeth xdf  
  23. dx 2 div dy 2 div translate
  24. angle rotate
  25. sfx sfy scale
  26. /xstart dx 2 div neg def
  27. /ystart dy 2 div neg def
  28. backgnd 
  29. colorchoice  
  30. xstart ystart m teethloop fill  
  31. Q end
  32. } def